home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / test1.p < prev    next >
Text File  |  1990-02-23  |  606b  |  37 lines

  1. program main(input,output);
  2. var
  3.   i: integer;
  4.   procedure otto(i1,{var} i2: integer; tx1: boolean; st: string);
  5. {  const
  6.      pie = 3.1415;
  7. }  var
  8.     j,k: integer;
  9.     i: boolean;
  10.     r: real;
  11.     f: boolean;
  12.     str: String;
  13.     procedure emil(i1,i2: integer; f1,f2,f3: boolean);
  14.     var
  15.       i,j,k: char;
  16.       function udo(a,b,c: real): boolean;
  17.       var i,j,k: integer;
  18.          begin
  19.          i:= j+k;
  20.          udo := false;
  21.          end;
  22.     begin
  23.     j := k;
  24.     end;
  25.   begin
  26.  {   r := pie;
  27.  } end;
  28.   procedure hugo;
  29.   var
  30.     a,b: integer;
  31.   Begin
  32.     a := b;
  33.   end;
  34. Begin
  35.    i := 3 mod 2;
  36. end.
  37.